(import
 (except (rnrs base) let-values map error)
 (only (guile)
       lambda* λ
       current-output-port
       simple-format)
 (srfi srfi-1))


;;; Exercise 3.1

(simple-format
 #t "~a\n"
 (let* ([x 6]
        [y (* x x)])
   (+ x y)))

;; This should be equivalent to:

(simple-format
 #t "~a\n"
 ((λ (x)
    ((λ (y) (+ x y))
     (* x x)))
  6))
